home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / •HC 2.0-3 / stack_-1.xml < prev    next >
Encoding:
Extensible Markup Language  |  1990-04-06  |  4.0 KB  |  16 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in.0-3</name>
  5.     <id>-1</id>
  6.     <cardCount>5</cardCount>
  7.     <cardID>5586</cardID>
  8.     <listID>2095</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>-- ================ Apple Training Support =================
  17. --
  18. -- Project Name: HyperCard 2.0 Product Training
  19. --
  20. -- Apple employees:
  21. -- Design and Development: Jeff Brechlin
  22. -- Team Leader: Mary VanRiper
  23. --
  24. -- Contractors:
  25. -- Design/Animations: Anne Wysocki
  26. -- Programmers: Gabriel Acosta, Kristi Wachter, Anne Wysocki
  27. -- Last modified: April 6, 1990
  28. -- ========================================================
  29.  
  30.  
  31. --‚Ä¢ GLOBALS:
  32. --      DisSpeed:  the speed to use for visual dissolves
  33.  
  34. ---------------------------------------------------------------------
  35. --          NAVIGATION HANDLERS
  36.  
  37. -- This handler goes to the card chosen by the user.
  38. -- "goMain", "goSect1", and "goSect2" are below.
  39. on goto CdName, Section, IDnum
  40. global MapMode
  41. if MapMode is "graph" then
  42. DeHilite
  43. Flash
  44. end if
  45. if "bkgnd" is in the name of target then goMain CdName
  46. else if Section is "section 1:" then goSect1 CdName, IDnum
  47. else if Section is "section 2:" then goSect2 CdName, IDnum
  48. else goSect1 CdName, IDnum
  49. end goto
  50.  
  51.  
  52.  
  53. -- This handler goes to one of the Main-level cards.
  54. on goMain CdName
  55. global DisSpeed
  56. visual DisSpeed
  57. go cd CdName of "Intro to HyperCard 2.0"
  58. --  openCard
  59. end goMain
  60.  
  61. -- Go to a cd from the Basic Menu or the Support Menu.
  62. on goSect1 CdName, IDnum
  63. global DisSpeed, OriginCdName,mapMode
  64. put the lockScreen into realMapMode
  65. lock screen
  66. put the short name of this cd into OriginCdName
  67. if CdName contains "Introduction to" then
  68. set lockmessages to true
  69. go to cd OriginCdName of "Intro to HyperCard 2.0"
  70. --    set the icon of bg btn "section" to OriginCdName
  71. send mouseUp to btn id IDnum
  72. set lockmessages to false
  73. if realMapMode is true then unlock screen
  74. unlock screen with DisSpeed
  75. openCard
  76. else
  77. go to cd OriginCdName of "Intro to HyperCard 2.0"
  78. --    set the icon of bg btn "section" to OriginCdName
  79. send mouseUp to btn id IDnum
  80. unlock screen with DisSpeed
  81. end if
  82. end goSect1
  83.  
  84. -- Go to a cd from the Nuts & Bolts Menu.
  85. on goSect2 CdName, IDnum
  86. global DisSpeed, OriginCdName
  87. lock screen
  88. -- Is it in the intro (not New in 2.0) section?
  89. put the short name of this cd into OriginCdName
  90.  
  91. put  "Stacks,The Home Stack,Windows,Cards,Buttons,Text Fields" &¬¨
  92. ",Menus,Graphics,Printing,Other Tools,Section 2:1" into introList
  93. put (cdName is in introList) into IsInFirstPt
  94.  
  95. if IsInFirstPt then
  96. go to cd "section 2:1" of "Intro to HyperCard 2.0"
  97. send mouseUp to btn "checkboxa"
  98. send mouseUp to btn id IDnum
  99. else
  100. go to cd "section 2:2" of "Intro to HyperCard 2.0"
  101. send mouseUp to btn "checkboxb"
  102. send mouseUp to btn id IDnum
  103. end if
  104.  
  105. unlock screen with DisSpeed
  106. end goSect2
  107.  
  108. ---------------------------------------------------------------------
  109. --          HILITING HANDLERS
  110.  
  111. -- Hilite the btn showing where the user came from.
  112. on HiliteMap
  113. global CameFrom
  114. if the short name of this cd is "Level 1" then
  115. set the hilite of bg btn CameFrom to true
  116. else
  117. put number of cd btns into NumBtns
  118. repeat with i=1 to NumBtns
  119. if (char 1 to 15 of the short name of btn i) is CameFrom then
  120. set the hilite of btn i to true
  121. exit repeat
  122. end if
  123. end repeat
  124. end if
  125. end HiliteMap
  126.  
  127. -- Dehilite all bg & cd btns
  128. on DeHilite
  129. repeat with i=5 to number of bg btns
  130. set the hilite of bg btn i to false
  131. end repeat
  132.  
  133. repeat with i=1 to the number of  btns
  134. set the hilite of  btn i to false
  135. end repeat
  136. end DeHilite
  137.  
  138. -- Make the clicked btn flash
  139. on Flash object
  140. set the hilite of the target to false
  141. wait 10
  142. set the hilite of the target to true
  143. wait 10
  144. set the hilite of the target to false
  145. end Flash
  146.  
  147.  
  148. -- Remove leading spaces from a string of chars
  149. function stripLeadBlanks string
  150. return (word 1 of string && ¬¨
  151. (word 2 to (the number of words of string) of string))
  152. end stripLeadBlanks
  153.  
  154. --===================
  155.  
  156. -- These